home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Musik / Misc / Amster / Source / about.c next >
Encoding:
C/C++ Source or Header  |  2000-05-27  |  3.2 KB  |  118 lines
  1. /*
  2. ** About Window
  3. */
  4.  
  5. #include "include/config.h"
  6.  
  7. #include "include/mui.h"
  8.  
  9. #include "include/gui.h"
  10. #include "include/about.h"
  11. #include "include/url.h"
  12. #include "pix/biglogo.h"
  13. #include "amster_Cat.h"
  14. #include "include/protos.h"
  15.  
  16. ULONG about_new(struct IClass *cl, Object *obj, struct opSet *msg);
  17.  
  18.  
  19. MUIF about_dispatch(REG(a0) struct IClass *cl,REG(a2) Object *obj,REG(a1) Msg msg)
  20. {
  21.     if(msg->MethodID==OM_NEW) return(about_new(cl,obj,(APTR)msg));
  22.     return(DoSuperMethodA(cl,obj,msg));
  23. }
  24.  
  25.  
  26. ULONG about_new(struct IClass *cl, Object *obj, struct opSet *msg)
  27. {
  28.     u_long *okbut;
  29.  
  30.     if (obj = (Object *)DoSuperNew(cl,obj,
  31.         MUIA_Window_Title, MSG_ABOUT_TITLE,
  32.         MUIA_Window_ID, MAKE_ID('A','B','O','U'),
  33.         MUIA_Window_UseBottomBorderScroller, FALSE,
  34.         WindowContents, VGroup,
  35.             MUIA_Background, MUII_RequesterBack,
  36.             Child, ScrollgroupObject,
  37.                 MUIA_Background, MUII_ListBack,
  38.                 MUIA_Scrollgroup_FreeHoriz, FALSE,
  39.                 MUIA_Scrollgroup_Contents, VirtgroupObject, VirtualFrame,
  40.                     Child, VSpace(5),
  41.                     Child, HGroup,
  42.                         Child, HSpace(0),
  43.                         Child, BodychunkObject,
  44.                             MUIA_FixWidth, BIGLOGO_WIDTH,
  45.                             MUIA_FixHeight, BIGLOGO_HEIGHT,
  46.                             MUIA_Bitmap_Width, BIGLOGO_WIDTH,
  47.                             MUIA_Bitmap_Height, BIGLOGO_HEIGHT,
  48.                             MUIA_Bodychunk_Depth, BIGLOGO_DEPTH,
  49.                             MUIA_Bodychunk_Body, (ULONG *)biglogo_body,
  50.                             MUIA_Bodychunk_Compression, BIGLOGO_COMPRESSION,
  51.                             MUIA_Bodychunk_Masking, BIGLOGO_MASKING,
  52.                             MUIA_Bitmap_SourceColors, (ULONG *)biglogo_colors,
  53.                         End,
  54.                         Child, HSpace(0),
  55.                     End,
  56.                     Child, TextObject,
  57.                         MUIA_Font, MUIV_Font_Big,
  58.                         MUIA_Text_Contents, "\33c\33bVersion "AMSTER_VERSION" ("AMSTER_DATE")",
  59.                     End,
  60.                     Child, VSpace(5),
  61.                     Child, TextObject,
  62.                         MUIA_Text_Contents, MSG_ABOUT_LICENSE_TMP,
  63.                     End,
  64.                     Child, RectangleObject,
  65.                         MUIA_FixHeight, 8,
  66.                         MUIA_Rectangle_HBar, TRUE,
  67.                     End,
  68.                     Child, NewObject(gui->url_mcc->mcc_Class, NULL,
  69.                         URL_NAME, MSG_ABOUT_HOMEPAGE_TMP,
  70.                         URL_HREF, "http://home.worldonline.dk/~jlaur/amiga/amster/",
  71.                     End,
  72.                     Child, NewObject(gui->url_mcc->mcc_Class, NULL,
  73.                         URL_NAME, MSG_ABOUT_MAILLIST_TMP,
  74.                         URL_HREF, "http://www.egroups.com/group/amster",
  75.                     End,
  76.                     Child, NewObject(gui->url_mcc->mcc_Class, NULL,
  77.                         URL_NAME, MSG_ABOUT_FAQPAGE,
  78.                         URL_HREF, "http://napster.cjb.net",
  79.                     End,
  80.                     Child, RectangleObject,
  81.                         MUIA_FixHeight, 8,
  82.                         MUIA_Rectangle_HBar, TRUE,
  83.                     End,
  84.                     Child, TextObject,
  85.                         MUIA_InnerLeft, 20,
  86.                         MUIA_InnerRight, 20,
  87.                         MUIA_Text_Contents, MSG_ABOUT_TEAM_TMP,
  88.                     End,
  89.                     Child, RectangleObject,
  90.                         MUIA_FixHeight, 8,
  91.                         MUIA_Rectangle_HBar, TRUE,
  92.                     End,
  93.                     Child, TextObject,
  94.                         MUIA_InnerLeft, 20,
  95.                         MUIA_InnerRight, 20,
  96.                         MUIA_Text_Contents, MSG_ABOUT_GREETS,
  97.                     End,
  98.                     Child, VSpace(5),
  99.                 End,
  100.             End,
  101.             Child, HGroup,
  102.                 Child, HSpace(0),
  103.                 Child, HSpace(0),
  104.                 Child, okbut = SimpleButton(MSG_OK_GAD),
  105.             End,
  106.         End,
  107.         TAG_MORE, msg->ops_AttrList))
  108.     {
  109.  
  110.         DoMethod(okbut, MUIM_Notify, MUIA_Pressed, FALSE, obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);
  111.         DoMethod(obj, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);
  112.  
  113.         return((ULONG)obj);
  114.     }
  115.  
  116.     return(0);
  117. }
  118.